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| nt S$BEGIN RMSOSRCH,000,RMSRMS,<SEARCH FOR NEXT WILDCARD FILE> 
900 ¢ s eensecennenernesenqennqeeneneseeneenednnnenenceeeqqqnenqnveesoeenooeeseoces 
3 
000 8 :* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
0000 3* DIGITAL EQUIPMENT €ORPORATION, MAYNARD, MASSACHUSETTS. * 
8088 8 :* ALL RIGHTS RESERVED. * 
3 oy 
0000 10 ;* THIS SOFTWARE IS pyran seee la A LICENSE AND MAY BE USED AND COPIED * 
000 11 ;* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH Tint AND WITH THE * 
$08 1 :* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
0 15 ;* COPIES THEREOF i NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY % 
0000 14 ;* OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
444 1? 3* TRANSFERRED. * 
o* ® 
0000 17 ;* THE gh phe IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 18 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
464 \} :* CORPORATION. * 
: © 
0000 21 ;* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 $§ 3* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 235 ;* * 
0000 24 ;3* * 
sit $2 SRA AAR AAA AEA AREA ATTA AAA AERA e eee 
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0 § ++ 
| 0 5 0 } Facility: rns32 
| 9000 ; : Abstract: 
000 3 this is the highest level routine to perform the 
4 : : Somees and $search functions 
0000 6 : Environment: 
| 0000 So? 3 vax/vms 
0000 38 : 
4 9 ; Author: 
| 00 40 ; tim halvorsen AUG-1979 
0000 41; 
0000 g : Modified By: 
0000 43; 
0000 44 ; V03-014 JEJ0026 J E Johnson 11-Apr-1984 
it 4 ¢2 ; Tie off invalid network operations. 
0000 «47: v03-013 pGB0022 onald 6. Blair 06-Mar-1984 
0000 48 ; Use full-length ath to uppers sc ess mode protected 
0000 49 ; files. Also- change RMSRE IRBDB to RETDIRBDB, a Local 
444 20 : routine. 
0000 3g ; V03-012 RASO219 Ron Schaefer 8-Dec-1983 
it 27 ; Change references to FWAST_SWB subfield to separate structure. 
0000 55; v03-011 RASO201 Ron Schaefer 17=0c t-1983 
0000 56; Correct calls to RMSPARSE FILE to account for the fact 
0000 of 3 that it does NOT necessarily preserve R7. 
si 4 38 : Make sure we got a name, type and/or version from ESA/ESL. 
0000 60 : v03-010 KBT0585 Keith B. Thompson 12-Aug-1983 
444 6} 3 Cleanup fwa constants 
0000 66 ; v03-009 KBT0559 Keith B. Thompson 20-Jul-1983 
0000 64 ; Convert DNF and FNF errors into NMF after a sucessful 
B06 9 : search List operation 
0000 «67: v03-008 KBT0533 Keith B. Thompson 1-Jun-1983 
68 ; Turn on search List processin and remove ref. 
§° : RMSSKIP_SUBTREE (this was a JSB to a SSB!) 
71; v03-007 RASO122 Ron Schaefer 1-F eb-1983 
ie 3 Complete KBT0472 by correct ing a problem that would 
73; leave an IFAB marked busy if the saved NAM block IFI 
| 74 : was incorrect. 
| : 
| ; 
| : 
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75 

76 v03-006 KBT0472 Keith B. Thompson 24-Jan-1983 

AA Fix some code i don't understand 

79 v03-005 RASO103 Ron Schaefer 19-Nov-1982 

80 Correct saving of the caller's access mode so the 
) exits via RMSEX oe have the caller's mode in 
¢ ano correct DMW4004 to correctly save the mode in the 1FB. 
| i VO3-004 DMW4004 DMWalp 2-Sep-1982 
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Changed FWA$B _UNDERCINE symbol to FWASB_UNDER_DEV 
(to distinguish it from new FWASB_UNDER_NOD symbol). 
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\ 02-000 Breet b8s forssiso PANS eRcTaMSOshen mek: 1 - 3, | 
| : Added code so that RMSSFABCHK was not called twice; 
; it was called directly and then again in RMSFSETI 
: vV03-003 KBT0194 Keith B. Thompson 23-Aug-1982 
: Reorganize psects 

3 v03-002 KRMO0S8 Malik 10-Aug-1982 
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-SBTTL RMSSSEARCH, Search for next Filename in Sequence 


wl 
rch 


QS 
zw 
xa 
. 
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++ 
RMSSSEARCH 
Search for next filename in sequence 
RMSSREMOVE 
Remove a directory entry 
inputs: 


ap = address of user argument List 
wee of nam block contains ifi of wildcard ifab 


outputs: 


t name string is returned to user buffer 
id in nam block 


SENTRY RMSSREMOVE 


SOOSCSCOCSCOSCSSCOOCOSOSOSOSOOSOOSCOOSCOOOSOOOSOOOCOSoOoOO 
COOCCOCCCOCOCCOCOOCOSOOCOOCOOOOOOSOOOOOOOOoOoOO 


Sn 
~ 
m 
Ow 
wu 
~o 
> 
SOoOCSSCCOCOCOCOCOOCOCOCO OOOO OOOOOOOOOOOOOOoOO MI 


SND DE DDE DDD DEDEDE St BS EB INI III inononononononononon—— 8 
MEW OC OD NOAU EWN 9 OD NAMES WN OO ONAU EWN OOD NAUE WN" OOONAULSWNR—O” oo - 


MOVZBL #10$_DELETE,=-(SP) 3 set acp function code = remove 
11 BRB COMMON 
SENTRY RMSSSEARCH 
v7 32 MOVZBL #10$_ACCESS,-(SP) ; set acp function code = search 
; this cannot be popped until ret 
; since rm$fset saves the sp for stall 
COMMON: STSTPT SEARCH 
OO0E 
OO0E ; . : 
OQO0E ; Get ifab and fwa addresses from ifi which resides in wec 
QO0E 3 of nam block. 
OO0E ' 
FFEF* 30 QOOE BSBwW RMSF ABCHK 3; check fab validity returns only if ok 
0011 3 rll = impure area 
0011 ; r8 = fab address 
0011 : re? = caller's access mode 
07 ~=«+13 boii BEQL 10$ 3 check fl 
0135 RMSERR it : error if IFI non-zero 
24 11 SOT BRB 0$ 
57 DD QO1A 10$: PUSHL R7 ; save caller's mode 
57 28 AB yi 001C MOVL FABSL_NAM(R8) ,R7 3; get nam address 
FFDD* 30 8 ° BSBW RMSCHRNAM ; check nam validity 
56 57 400 00 MOVL R7,R6 3 copy nam addr 
57 43 DO 88 6 MOVL (SP)+,R7 3 restore caller's mode 
12 5 E9 0029 BLBC RO, 208 ; if error ‘ 
02C 3; take the ‘nostruct’ error exit. 
32 A6 «=6B3S QC BITW NAMSL_WCC+2(R6) ,- ; check to see that no spurious bits 
SFFE 8F 02F #*C<<RAMSM_SVCTX!= ; other than the IFI bit, the search 
0052 NAMS$M_SRCHNMF - ; NMF bit, or the save context bit are 
' 
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0 § 176 @-16>!1> ; set within the field NAM$L_WCC 
66 12 00 17 BNEQ ERRWCC ; error if illegal wee value” 
1—E €1 0034 178 BBC #NAMSV_SRCHNMF = ; if NMF has been encountered, 
07 30 A6 036 17 pa OCC(R6), $0$ 3 then go waged etety return 
Spee 180 RMSERR NMF ; a status of 
=F F43 13) 20$: BRB ENS 
59 30 A6 3 $040 183 308: MOVZWL NAMSL_WCC(R6) RO ; get ifi of eevee i fab 
er Boe 130 BEQL 50$ : branch if non 
10 +«€1 boce 186 BBC #NAMSV_IFI,- ; if the IFI bit is not set then 
19 30 A6 0048 187 NAMSL_QCC(R6) ,50$ ; context has not been saved 
02 a8 59 BO 0048 188 MOVW R9 FABSW_IFI(RB) ; set internal if} into fab 
FFAE’ 30 OQO4F 189 SBW 3 s«aRMSFSET_ALT1 ; setup with iff in fab 
14 AB 04 CO Q052 £190 ADDL2 #4, I1MP$C_SAVED_SP(R11) : adjust FSET saved sp for acp code 
06 69. 39 +€£€1 0056 191 BBC #IFBSV SEARCH (RD) 008 ; branch if not our type of ifab 
5A 38 A9 DO OOSA 135 MOVL IFBSL_FWA_PTR(R9) ,R10 ; get fwa 
1 12 QOOSE 19 BNEQ SRCH ; ranch if have one 
0060 194 40$: #1FBSV_BUSY, (R9) : don't leave this IFAB marked busy 
0064 195 
0064 196; 
0064 197 ; No previous context can be found, parse the expanded name 
0064 198 ; string and proceed. 
0064 199; 
0064 200 
FF99" 30 0064 201 50$: BSBW RMSFSETI_A ; allocate ifab/ifi 
14 AB 04 CO 0067 $06 ADDL2 #4,IMPS$L~ SAVED SP(R11) ; adjust FSET saved sp for acp code 
57 28 AB DO O006B 20 MOVL FABSL_NAA(RB) ,R7 ; get nam address 
FFBE’ 30 OO6F 204 BSBW RASC THAR 3 check nam validity 
22 50 €9 0072 #4205 BLBC EXIT1 ; quit on failure 
FF88" 30 0075 206 BSBW RMSE COVER. FWA : recover fwa context 
1¢ 50 = EY Bate it BLBC RO,EXIT1 ; branch if error 
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0078 $ 
078 ; Context has been recovered. Check device characteristics. continue only 
fas ; for directory structured devices. 
0078 
23 6A 19 £0 BR 08 SRCH: BBS WFWASV_NODE,(R10),NTSRCH; branch if network operation 
03 £1 OO7F BBC #DEVS$V_DIR,- ; error if illegal device 
OF 69 - 0081 en 1PBSL PRIM_DEV(R9) ,ERRIOP ~ GE 
- 3 error spooled device 
09 o08c C9 0083 IFBSL_AS_DEV(R9) ,ERRIOP 7 
44 H 
0089 ; Get the next file in sequence 
0089 
O1FE CA B85 0089 TSTW FWAST_FIBBUF+FIB$W_DID(R10) ; new directory needed? 
47 12 008d BNEG READ_BIR ; branch not 
O16F «631 si 4 BRW NEXT_DIR : and get next directory 
$093 ERRIOP: RMSERR IOP ; illegal device type 
0258 «31 9 $4 EXIT1: BRW EXIT ; exit cleaning up ifab 
009A ERRWCC: RMSERR WCC : illegal wee value 
FFSE* 31 44 ENS: BRW RMSEX_NOSTR 3; exit without ifab with status 
O0A2 8 
OQOA2 3; Perform network search function. 
a’ 
ec ed SS. €0 BRA NTSRCH: BBS #'FBSV_NSP,(R9),ERRIOP ; search of node::''task=abc"’ is invalid 
6€ 35 91 QOA6 CMPB #10$_DELETE, (SP) ; Is this a search or a remove op? 
05 12 OOA9 BNEQ 5$ ; Branch if a search operation 
FF52° 30 OQOAB BSBW NTSREMOVE 3; its a remove... 
+ ae pane BRB EXIT ; branch aid to home 
50 D4 00B0 5$: CLRL RO ; clear first-time-thru hes 
06 69 = 25 3 00B2 BBS #IFBSV_ACCESSED,(R9),10$ ; branch if already connected to fal 
FF47" 30 00B6 BSBW NTSACCESS : establish bogicat Link with fal 
0D 50 €9 OQ0B9 BLBC RO,20$ ; branch on failure 
0O0BC : note, first-time-thru flag is now set! 
FF41" 30 OOBC 10$: BSBW NTSSEARCH 3; perform search at remote node 
1150 €9 OOBF BLBC RO,30$ ; branch on failure 
00C2 SSB #IFBSV_FILEFOUND,(R9) ; indicate at least one file found 
01c0.~— «#311 C BRW COPY_RESULT ; branch aid 
00C9 20$: RMSERR FND,R1 ; set default error code ; 
FF2F* 30 OOCE BSBW RMSMAPERR 3 map ss error to rms error if possible 
C4 «11 itd BRB EXIT1 ; branch ai 
0147 31 Q0D3 30$: BRwW ERROR : branch aid 
00p6 
0006 : If we are saving context (ifab/fwa) and we are agerce tng a wildcard 
8308 3 specification and no directory file has been read yet, then read the 
Boe 3; directory file into memory to optimize on obtaining file names. 
9006 : 
0D6 READ_DIR: 
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58 24 a9 00 pee 67 MOVL rest LAST_FAB(R9),R8 =; get fab address 
69 3? E1 BDA 08 BBC wire Tepe ten. th) = ; Branch if not saving context 
6A 18 4 Be 29 BBC eruay WILDCARD,(R10),- ; branch if non-wild string 
30 AA 95 QOEZ ig TSTL FWASC_DIRBDB(R10) ; directory file read yet? 
- vE5 7 BNEQ NEXT FILE ; if so, don't read again 
00000000" 18 OOE 7% SB. -—-RMSREADDIR i read directory into menory 
04 50 €9 OOED 75 BLBC RO,MEXT_FILE 3; branch if unable to read 
30 AA 57 200 perp 16 MOVL R7, FWASC_DIRBDB(R10) ; save bdb address 
OF4 78; 
Gor 3 ; Get the file name pattern from the expanded name string 
OOF4 81 
Baca Ht NEXT_FILE: 
57 28 AB DO OOFS 8 MOVL FABSL_NAM(RB) ,R7 3; and recover nam address again 
FFOS' 30 OOF8 84 BSBW RMSCHRNAM 3 check nam validity 
6A 50 €9 OOFB 85 BLBC RO,EXIT2 i quit on failure 
56 OB A? 9A OOFE 86 MOVZBL NAM$B_ESL(R7),R6 ; length of expanded string 
SF 13 0102 287 BEQL ERRESC : error if none 
57 OC A? DO G104 88 M NAMSL_ESA(R7) ,R7 ; address of expanded string 
0108 89 IFNORD R6,(R7),ERRESA : error if cannot read buffer 
52 0104 BF 3¢ 0108 90 MOVZWL #FSCBSC‘BLN,R2 > get size of FSCB 
FEEA' 30 011 91 BSBW RMSGET ; allocate it 
4F 50 €9 0116 $36 BLBC 0,EXI 3 exit on error 
5B ODD 0119 29 PUSHL if ; save impure area 
5B 51 00 O11B 294 MOVL R1,R11 ; put FSCB in correct reg 
QOOO00000'EF 16 O11E 295 JSB RMSSCAN_STRING > scan the string 
C AB 7D 0124 96 MOVQ FSCBSQ_NAME(R11),RO ; get name 
0c 12 0128 97 BNEQ 10$ 3 got one 
50 34 AB 7D O12A 98 MOVa FSCB$Q_TYPE(R11),RO : how about type 
OA 12 Hf; 99 BNEQ 20$ 3; got one 
50 3C AB 7D 0130 00 MOVQ FSCBSQ_VERSION(R11),RO_ ; 7 version 
08 11 0134 01 BRE 30$ z exit 
50 34 AB AO 0136 208 10$: ADDW FSCB$Q_TYPE(R11) ,RO ; add type 
50 3¢ AB AO O13A 30 208: ADDW2 FSCBSQ~VERSION(R11),RO : add version 
0188 CA 50 80 biz5 04 30$: MOVW RO,FWASQ_RNS(R10) ; set string descriptor length (no flags) 
018C CA 51 dO 014 05 MOVL R1, FWASQ_RNS+4(R10) i and address 
54 5B DO 0148 06 MOVL R14,R4 3 get ready to return 
5B 8EDO 0148 07 POPL R11 3 restore impure area 
52 0104 8F HS Biss 08 MOVZWL #FSCBSC_BLN,R2 ; 
FEAA* 0 O15 09 BSBW RMSRETSPC1 ; return FSCB 
0188 CA’ B65 8126 10 TSTwW FWASQ_RNS(R10) ; valid string for ACP? 
12 Bier VY BNEQ SETFIB 
015C¢ i ERRESA: RMSERR ESA ; set esa error 
05 11 bi \° : BRB EXIT2 
b183 18 ERRESL: RMSERR ESL ; set esl error 
018A 31 168 17 EXIT2: BRW EXIT 
0168 13 
168 19 .ENABL LSB 
168 0 
168 1; 
168 § ; Setup fib fields 
168 : 
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pire B 
14 Al 100 8F 
10 AA 00000040 8F 

14 AA 1 


0170 CA O12E BF 


35s GE 

OF 

0A 04 AB 18 
OA Al 


32 
7 


6 
13 
AR 
52. 0188 CA 
pice 


50. 6E 


7E 
0170 CA 


21 6A 
0910 8F 


—-om—o 
Wun 
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me ee ee me ee ee a od od dd 8 wd 8 
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be 
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xa 


WILDCARD FILE 
ch for next Filename in 


CSEETBE eB 
SETFIB: MOVAB 
MOV 
MOVL 
MOVL 
MOVZWL 


> find via fid rather than by name. 


CMPB ss (SP) , #1 0$_DELETE 

BNEQ 208 

BBC #F ABSV_NAM, FABSL_FOP(R8) ,20$ 
TSTL FIBSW_BID(R1) 

BEQL 20 

SSB #F IBSV_FINDFID,F IBSW_NMCTL(R1) 


memory, then sk 
for the next file name in sequence. 


20S: cree (SP) ,#10$_ACCESS 
oot FWASL_DIRBDB(R10) ,R7 
mMOVQ FWASQ _RNS(R10) ,R2 
JSB RMSDIRSCAN 
BRB 24$ 
; Call acp for next file in this directory 
228 MOVL (SP),RO 
CLRQ ~ 
PUSHAB FWASQ_NAME(R10) 
7 
3 PUSHAB IFBSL_RNS_LEN(R9) 
0 
1 PUSHAB FWAS$Q_RNS(R10) 
§ BSBW RMSF CPFNC 
24$: BLBC RO,ACPERR 
4 SSB #1FBSV_FILEFOUND, (R9) 
5 BRw COPY_RESULT 
; ACPERR: BBC #FWASV_WILD_DIR, (R10) ,25$ 
9 CMPW RO, #SS$_NOSUCHF ILE 
0 BEQL NEXT_DIR 


AX/VMS Macr 
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e 
; set wildcard 
; create fib d 


v04-00 


fib address 
ing on 
escriptor 


; set length of result buffer 


If remove and the nam fop bit is set, set fib bit to do 


remove function? 

branch if not 

branch if nam bit not set 
fid supplied? 


find by fid 


If the eirectory file has already been read into virtual 
p the call to the acp and look in memory 


access function? 

only on searches 

is there a directory in memory? 
call acp if not 

pass descriptor of file name 
find the next find in sequence 
re-join after acp call 


acp penctren code 
result descriptor 
© input to 9p as previous 
pge ition (file) in directory 
= longword to receive Length 


“no 


also input to ace as previous 
peerttes (file) in directory 
pe = name descriptor 

call acp and wait for reply 
branch if error from ace 
indicate at least one file found 


and copy result string 


if there are no wild directories 
report fnf if none were 

no files in directory at all? 

if so, get next directory 


moe 


RP 
vc 
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0930 8F 50 a 10D 1 CMPW RO,#SS$_NOMOREFILES 3; no more files in girectory? 
1D 1E2 ¢ BEQL ; if so, get next directory 
O1FE CA B4 Q1E4 CLRW FWAST_F IBBUF +F IB$W_DID(R10) : mark fresh directory needed 
51 4C AA DO Q1E8 4 MOVL A i a SWB_PTR(R10),R1 i get SWB ptr 
3 5? SSB tes tM i Be 3 Set to skip rest of subtree 
0828 8F 50 861 OQIF e? CMPW RO,#SS$_BADIRECTORY ; bad directory format? 
OA 13 OTF 8 BEQL NEXT_DIR ; ignore bad directories on traversa 
O1F 89 25$: RMSERR FND,R1 ; set default error 
FEOQ1’ 30 OFC 90 BSBW RMSMAPERR ; map error to rms error 
a |b 0201 $e BRB ERROR i; process other type of error 
1 93 ; 
4 ae ; If no more files in directory, skip to next directory 
0201 96 
0201 97 NEXT_DIR: 
0168 30 0201 98 BSBW RETDIRBDB ; deallocate directory buffer 
69 04 €0 Ogos 99 BBS #DEVSV_SDI,IFBSL_PRIM_DEV(R9),- ; nmf if sdi device 
10 0207 400 ERRNMF 
QOOOOOOO'EF 16 0208 401 JSB RMSNEXTDIR 3 get next directory 
E9 O20E ret BLBC RO, ERROR ; if error, copy result and exit 
0204 CA D4 O211 40 CLRL FWAST_F IBBUF +F IBSL_WCC(R10) ; start at Ist file in directory 
FEBE 31 b613 ‘te BRW READ_BIR ; and then get next file 
ase 406 ERRNMF: RMSERR NMF 3; no more files 
021D 407 
021D 408; 
021D 409 ; If there is no wild card directory and the user did not specify NAMS$V_SVCTX, 
021D 410 ; then the ACP is maintaining context and we should just return the error 
i444 a1] ; it gave us. 
$510 218 ; If we are maintaining context (wild directory or NAMSV_SVCTX), then we should 
021D 414 ; convert NMF to FNF based on FILEFOUND bit. 
ane 
4F 69 39 +€1 OQ21D 417 ERROR: BBC #IFBSV_SEARCH, (R9) ,35$ ; we are not keeping context 
4B 69 3C €0 0 $] 418 BBS #1FBSV_FILEFOUND, (R9) ,35$ ; skip if file foun 
82CA BF 86550) BT COS 4119 CMPW RO, #RMSS_NMFR“XFFFF ; and error was NMF 
44 12 O22A 420 BNEQ © 35$ 
ae 
O22C 4 : : If there was a wild directory, move the expanded name string from 
: 2 : ; the namblk to the resultant name string and return file not found 
C 426° 
40 6A 1C 3 427 BBC #FWASV_WILD_DIR,(R10),35$ ; branch if dir not wild 
428 MOVL  IFBSL_CAST_FAB(R9) ,RB ; get the Last fab's addr 
4 429 MOVL FABSL-NAM(R8) ,R7 7 get the name block addr 
8 430 BSBW RMSCHRNAM 3; check nam validity 
431 BLBC RO,44$ i; quit on failure 
—E 4 § CLRB NAMS$B_RSL(R7) ; assume can't set result string 
41 4 MOVZBL ye RSS(R7) ,R2 ; get length of resultant buffer 
45 434 MOVAL _ @NAM g RSACRZS RS ; get addr of resultant buffer 
49 435 IFNOWRT R2,(R53,50$ ; probe the resultant string buff 
4F 64 § ; error if can't write it 
GF 4 MOVZBL NAMS$B_ESS(R7) ,R2 i get the buffer size into longword 


to the resultant string 


RMSERR FNF ; restore the error 
BRB 


G 2 
RMSOSRCH SEARCH FOR N WILDCARD FIL 16-SEP-1984 01:32:07 VAX/VMS Macro v04-00 Page 11. 
y0L~000 RMSSSEARCH, rch for next Filename in misty y 95:38:95 RMS.SRCIRMSOSRCH.MAR; 1 ° (5) | 
51 OC 87 DE MOVAL @NAM$L_ESA(R7),R1 ; get addr of expanded buffer | 
IFNORD BRIT 80s ; probe the expended string buff | 
i error if can't read it 
3g A? MOVZBL NAMSB ESL (a7) R2 i; get the string’s actual length 
03 a7 2$ 90 MOVB Be uae B RSL (RZ) ; stuff the resultant length 
63 6 MOVC3 R2,(R1),TR3) i move the expanded string 


H 
E 
0 
0 
0 
0 
0 
Q 
8 
i] 
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8 
D 
0 
0 


50$ and continue | 


; mame string is copied, the file string sent to acp is returned. 


xT 
ea 
40 
$] 
23 
44 
i 
is 
é3 : Error has occurred - setup file name so that when result 
2] 
38 
54 
2? 
35 
58 
59 
60 
61 


BPP PPP PPP PPP PPP PPLE EEE OT 


15 6A 19 €0 35$: BBS #FWASV_NODE,(R10),COPY_RESULT =; branch if network operation 
50 bo PUSHL RO ; save status code 
6C AD «00188 CAC MOVZWL FWASQ_RNS(R10),IFBS$L_RNS_LEN(R9): set Length of string 
018C DA 0188 CA 28 MOVC3 FWASQ_RNS(R10) ,@FWASO_RNS+4(R10),- | 
0486 CA FWAST_NAMEBUF (R10) | 
50 8EDO POPL RO ; restore status | 
; Copy result file name to user result buffer 
rh ; unless no file was found 
465 COPY_RESULT: | 
50 dD PUSHL RO 3; save status code 
58 $s AQ = 00 MOVL IFBSL_LAST_ FAB(R9) ,RB ; get fab address 
57 A8 34 MOVL FABSL-NAM(RB) ,R7 3 set nam address 
FD6A" 30 BSBW = RMSCHRNAM ; check nam validity 
0B 50 3 BLBC RO,42$ 3: quit on failure ; 
009 0 BSBW RMSCOPY_RESULT 3; copy result name string 
05 5 E9 BLBC RO,42$ 3; branch if error 
50 8EDO POPL R ; restore status code 
05 11 BRB 50$ ; and continue 
5E 04 C0 42$: ADDL #4,SP ; ignore saved status code 
4c 11 44$: BRB Ex{T ; and report one from copy_result 


: If not remove, copy fid and did into nam block 


35 6€ 91 508: CMPB (SP) ,#10$_DELETE ; remove function? 
10 13 BEQL : if so, skip this 
uC 6A 19 €0 BBS #FWASV_NODE, (R10) ,60$ ; skip also if network operation 
ASSUME FIBSW_DID EQ FIBSW_FID+6 
ASSUME NAM$W_DID EQ NAMSW_F ID+6 
24 A7 O1FB CA 7D MOVa FWAST_F IBBUF +F IBSW_FID(R10) NAMSW_FID(R7) 
2C A? 0200 CA 00 MOVL FWAST—F BBUF +F IBSW~FID+8(R10) ,NAMSW_F 1D+8(R7) 


: If this is a temporary ifab/fwa created for this call 
; only, then save the current acp position in the directory 


RIPIPIPIPINDAIMNIPYININYDIMIPNININIPIDPPINIAINIPYININININININI[NIMPYNIPININIPIPYPIPIPYPIPIPIPUPIPNPPIPYPIPPUNNPYD 

PAM MM CHIMIFINPIFIM OF OO OOOO NEM FBNOSOOW4D OOOO OOOO AWONA FDOOCOOCCOM OOF O NW OOO 
= 
o 
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DWOWDWODOWOOOOr rrr rrr Yr PP 0000 OW WW W009 00 09 09 09 09 09 09 SIN SINS NSIS SIS SNIP OOOO 


PAR 9 ODNOA UNE WN  O OONAUE WIN OOONO 


Fe ee ae el el al at det det et de ee keh eke 
OOOO O0000 000909 09 0909 09 SI NI NS NSIS NS SOOO Om 


: If there was a file found on some previous search operation then 
; convert DNF and FNF errors into NM 


; no previous file found 
3; directory not found 


RMSOSRCH H FOR NEXT WILDCARD FILE 16-SEP-1984 91:39:02 AX/VMS Macro v04-00 Page 1g | 
v04- EARCH, Search for next Filename in -SEP=1984 16:25:32 (CRMS.SRCIRMSOSRCH.MAR; 1 (5). 
of : i; file and cleanup all internal structures. 
BE 497 ° 
0B 69 =39 B 498 60S: BBS #IFBSV_SEARCH, (R9) ,658 ; branch if ifab to be saved 
§ 50 C 4 BLBC N ; go set NMF bit if any error 
0204 CA C MOVZWL FWAST_FIBBUF+FIBSL_WCC(R10),- : Save acp position 
0 A? C NAMSL_WCC(R7) 
28 +8 BRB EXIT 
CD 5 
a) ; This is a permanent ifab/fwa (that is, it is kept around between 
8 CD ; calls in order to speed up things or keep extended context) 
CD ; If the status was successful or not enough privilege, 
8 CD 3; then keep the wildcard sequence context around so that 
8 $2 248 i search can be called again. else, cleanup everything. 
Oecd 3511 * 
17 50 E€8 O2CDd 21§ 65$: BLBS RO,70$ 3 continue sequence if successful 
82CA 8F 50 B1 O2D0 51 CMPW RO, #RMSS_NMFE“XFFFF : done with wildcard sequence? 
4 13 0205 514 BEQL HKLST :; if so, terminate sequence 
8292 BF 0 B61 O2dD7 515 CMPW RO, #RMSS_FNFO*XFFFF : file not found? 
1A 2613)=«02DC.—CséS516 BEQL CHKL i if so, terminate sequence 
OB 6A 1c E1 02D 517 BBC #FWASV_WILD_DIR, (R10) ,NMF : if nonwild, cleanup 
0c AB «DS «(OE 518 TSTL FABSL_STV(RB) ; error from acp? 
06 13 Ose 519 BEQL NMF ; if not, terminate sequence 
02 “ Bs O2E7 520 70$: CLRW FABSW_IFI(R8) ; mbz for subsequent operations on f. 
FD13° 31 BgeA 2 1 BRWw RMSEXRMS ; exit without cleaning up 
30 A7 40000000 8F 05D 5 ‘ NMF : MOVL #NAMSM_SRCHNMF ,NAMSL_WCC(R7) ; indicate that another search isn't. 
bsee 524 3; to be done with this NAM 
FDOB" 31 3 : 2 EXIT: BRid RMSCLSCU ; cleanup ifab and buffers 
02F8 527 .DSABL LSB 
0 re 528 
O2F 529 ; 
O2F8 530 ; We are about to exit with No More Files or File Not Found, before we 
osre 23) ; really do, check to see if there was a search list, if so try to 
bsre ; ¢ 3; parse a new string and if successful search for a new file 
02F8 3 , 
F1 6A 38 €1 O58 5 CHKLST: BBC #FWASV_SLPRESENT, (R10) ,NMF ; are search List precenss 
oer 6 SSB #FWASV-SL_PASS, (R10) ; indicate search list parse 
30 A? ~DD 030 PUSHL NAM$L_QCCTR7) > save wild card context 
57 Bp 0 2 3 PUSHL R7 ; save NAM blk ptr 
be 4 5 0 0 BSBW RMSPARSE _FILE 3; parse a new pir ing 
5 ged? 8 re POPL 7 3; restore NAM blk ptr 
30 A7 BED 41 POPL wnt, WCC(R7) 3 restore wec 
03 50 3 F 6 BLBC RO, 108 ; branch if error | 
FD66 1 g rt BR tu 3 go search new string 
5 $2 
$ 
: 
50 
9 551 


a ne ee 


D4 69 . ey 10$: BBC eivese FILEFOUND, (R9) ,NMF 
CO4A 8F 0 861 RO, 


CMP #RMSS_DNFO“XFFFF 


ee 
RMSOSRCH SEARCH FOR NEXT WILDCARD FILE 16-SEP-1984 01:32:07 VAX/VMS Macro V04-00 Pa 13 RI 
FO. 000 RMSSSEARCH, Search for next Filename in oe 4:39:95 RMS.SRCIRMSOSRCH.MAR; 1 ™” (5) v 
y > 1 BEQL 20$ 3 yes, convert it 
8292 BF 4 ? g CMPW ao #RMSS_FNFO*XFFFF : Yile not. found 
C6 12 4 BNEQ wwf i no exit 
5 208: RMSERR NM 3 convert the error 
BF 11 ‘ 2$ BRB NMF : exit 
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Return Result Name Strin 


.SBTTL RMSCOPY_RE 


+ 
> 


=SEP=1984 01:32:07 YAX/VMS Macro v04-00 
878 p=19 4 96:38:55 RMS. SRCJRMS SRCH.MAR; 1 


SULT, Return Result Name String 


; RMSCOPY_RESULT 
: Construct the result name string and return to 
: the caller via the rsa and rss fields of the nam. 
3; inputs: 
3 r7 = address of NAM 
: r9 = address of ifab 
; r10 = address of fwa 
3 ifb$l_rns_len = Length of new file name 
; fwaSt_namebuf = new file name string 
3 fwa$q_device = descriptor of device name 
3 fwaSq_diri- = descriptors of directory names 
: fwaSb_dirlen = number of directory levels 
3 fwaSb_dirterm = directory specification terminator 
; Outputs: 
: result string buffer is output if requested. 
3 NAM$L_FNB 
RMSCOPY_RESULT:: 
BBS #FWASV_NODE,(R10),5$ ; branch if network operation 
MOVL  IFBSL_RNS_LEN(R9).- : set length of file name 
WASQ” NAME (R10) 
BBC #FWAST_DIR,(R10),5$ ; skip if no directory in spec 
BBC #FWASV-WILO DIR (R10) ,5$ : or if there are no wild directori 
SUBB3 #1, FWASB_DIRLEN(R10) ,RO ; get number of subdirectory levels 
INSV RO,#FWAST_DIR_LVLS,- 3 return current # of subdir. 
WASS DIR_LVCS, (R10) : levels in the FWA 
INSV RO, #NARSV_BIR_LVLS,- 3 return current # of subdir. 
NAMSS_DIR LCS, = ; levels in the NAM 
NAMSL_FNB(R7) 
MOVB I ARS op Laue’ L G5 (R10). : if any ellipses were found, 
NAMSL_FNB+5(R7) ; set the appropriate wild 
:; flags in the nam 
5$: MOVAB 6*10$,AP ; address of expstring arg list 
PUSHL NAM$W_FID(R7) ; save contents of nam fi 
CLRL NAMSW_FID(R7) ; clear fid so expstring will work 
BSBW = RMSEXPSTRING ; return result name otring, 
4% NAMS$W_FID(R7) 3; restore contents of nam fid 
108: -BYTE NAMSL_RSA ; offset to result buffer addr. 
RMSERR_WORD RST : error of bad buffer 


RMSERR~WORD RS 


S error of buffer too short 


ee ems ss hs a ss a ee TITTY 
ee ee De ST Se 
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+3 $17 -SBTTL RETDIRBDB, Deallocate Directory Buffer and BDB 
6C af i++ 
26C 18 ; 
¢: 2 3; RETDIRBDB 
6C eis : This routine deallocates the » Grversery buffer and the bdb 
oe ? y ; which is associated with it 
036C 6 § 3; inputs: 
036C 623; 
8 6C 624; ri10 = fwa address 
6C 625; r9 = ifab addre 
b39t ° $ 3 fwa$l _dirbdb =  eddrese of directory bdb 
036C 628 ; outputs: 
036C 629 ; 
036C 630; none 
036C 631 ;-- 
036C O36 3 
036C 63 
036C 634 RETDIRBDB: 
54 30 AA 00 O36C 635 MOVL FWASL_DIRBDB(R10) ,R4 : is there a directory in memory? 
OE 13 0370 636 BEQL 10$ 3 branch Sep 
5A DD 0372 637 PUSHL R10 3; save ri 
5A 59 D0 0374 638 MOVL R9,R10 3; rm$retbdb wants ifb address in r10 
FCB6" 30 0377 639 BSBW RM$RETBDB : deallocate it if there is 
5A BEDO O37A 640 POPL R1 3 restore r10 
30 AA D4 037D 641 CLRL FWASL_DIRBDB(R10) ; and clear pointer 
05 0380 obg 10$: RSB 
0381 64 
0381 644 ~END 
| 
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SSRMSTEST 
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FWASV_WILD_DIR 
IFBSL-AS_DEV 
IFBSL_FWA_PTR 
IFBSL-LAST_FAB 
IFBS$L-PRIM-DEV 
IFBSL_RNS_CEN 
IFBSV_ACCESSED 
IFBSV_BUSY 
IFBSV_F ILEFOUND 
IFBSV_NSP 
IFBSV~SEARCH 
IMPSL-SAVED_SP 
10$_ACCESS 
10$_DELETE 
NAMSB_ESL 
NAM$B_ESS 
NAM$B_RSL 
NAMSB_RSS 
NAMSL_ESA 
NAMSL_FNB 


NAM$S_DIR_LVLS 
NAMSV_DIR-LVLS 
NAMSV_IF I 


NTSSEARCH 
NTSRCH 
PIOSA_TRACE 
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RMSCOPY RESULT 
RMSDIRSCTAN 
RMSEXPSTRING 
RASEXRMS 


RMSRECOVER_FWA 
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RMSRETSPC1 eeeeeree YX 
RMSSCAN_STRING eeteeene 
RMSSREMOVE 
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SRCH 
SS$$_BADIRECTORY 
SS$_NOMOREF ILES 
SS$~NOSUCHF ILE 
SWBSB_FLAGS 
SWB$V~ TRAVERSE 
TPT$L~SEARCH 
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PSECT name Allocation PSECT No. Attributes 

«§ MO « 00000000 ( 0.) 0O¢ QO.) NOPIC USR CON ABS ~ LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
RMSRMS 00000381 (¢ 897.) 01 ¢ 1.) PIC USR CON REL GBL NOSHR EXE RD NOWRT NOVEC BYTE 
SABSS 00000000 ( 0.) 02 ¢ 2.) NOPIC USR CON ABS LCL NOSHR EXE RD WRT NOVEC BYTE 


Phase Page faults CPU Time E 


Initialization | 
Command processing 


Pass 
Symbol iable sort 
Pass 2 


Symbol table output 
Psect synopsis output 
Cross-reference output 8 
Assembler run totals 81 
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The working set ptt was 1800 pages. : 
119924 bytes (235 pages) of virtual memory were used to buffer the intermediate code. 

There were 130 pages of symbol table space a) Lecegee to hold 2357 non-local and 34 local symbols. 
4 source lines were read in Pass 1, producing 15 object records in Pass 2. 

2 pages of virtual memory were used to define 31 macros. 
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VAX-11 Macro Run Statistics 
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! Macro Library Statistics : 


jennease aR TO OOM Om 


Macro Library name Macros defined 
$255$DUA2 _ . OBJ Ras ALB: ! . 
eSeecoun $¥S.OBJJLIB.MLB; 1 

352 2SDUASB: SySi IBISTARLET. MLB;2 4 

TOTALS (all Libraries) 2 


2488 GETS were required to define 27 macros. 
There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:RMSOSRCH/OBJ=OBJ$:RMSOSRCH MSRC$:RMSOSRCH/UPDATE=(ENHS:RMSOSR 
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QUIPMENT CORPORATION 
CONFIDENTIAL AND PROPRIETARY _ 


